home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
WINWORDS
/
WINE02BX.ZIP
/
LISP
/
MODES
/
SENDMAIL.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
15KB
|
136 lines
;;; compiled by @win386 on Sat Mar 13 14:33:14 1993
;;; from file c:/src/lucid-19.4/lisp/modes/sendmail.el
;;; emacs version 19.3 Lucid.
;;; bytecomp version 2.08; 27-aug-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(provide 'sendmail)
(defvar mail-default-reply-to nil "\
*Address to insert as default Reply-to field of outgoing messages.")
(defvar mail-yank-prefix nil "\
*Prefix insert on lines of yanked message being replied to.
nil means use indentation.")
(byte-code "└┴!¼é┬└├!¼é┬└─!¼é┬┬ç" [boundp mail-abbrevs-loaded nil mail-mode-map mail-reply-buffer] 2)
(defvar mail-send-actions nil "\
A list of actions to be performed upon successful sending of a message.")
(defvar mail-signature-file "~/.signature" "\
File to be inserted at the end of a message. Usually, this file is called
\"~/.signature\".")
(defvar mail-insert-signature nil "\
If T, insert automaticcally the file denoted by the variable
`mail-signature-file' before sending a message.")
(defvar mail-signature-inserted nil "\
Non-nil means signature already inserted; don't reinsert it.")
(defvar mail-mode-syntax-table nil "\
Syntax table used while in mail mode.")
(byte-code "¼è┴\n!├─┼#ê╞╟╚\"ê╔╩Mç" [mail-mode-syntax-table copy-syntax-table text-mode-syntax-table modify-syntax-entry 37 ". " autoload mail-aliases-setup "mail-abbrevs" mail-setup #[(to subject in-reply-to cc replybuffer actions) "┬ ê┼ebê╟cêè½æ╔▒ê╩╠ed\"ê)¬â═ ê½ö`╩╨╔▒ê╤d\"ê*½ç╙╔▒ê╘«ü╓╔▒ê½ç╪╔▒ê½ç┌█ ╔▒ê½ç▌╔▒ê╔▒ê)½âdbê¼î¼ê¼ä▀┼!êαß!ç" [actions mail-send-actions mail-aliases-setup replybuffer mail-reply-buffer nil mail-signature-inserted "To: " to "\n" " " fill-prefix fill-region newline cc opos "CC: " fill-region-as-paragraph in-reply-to "In-reply-to: " "Subject: " subject "" mail-default-reply-to "Reply-to: " mail-self-blind "BCC: " user-login-name mail-archive-file-name "FCC: " mail-header-separator set-buffer-modified-p run-hooks mail-setup-hook] 3]] 4)
(fset 'mail-mode #[nil "└ ê┴┬!ê├┴─!ê┴┼!ê╞!ê╚ !ê\n╠╬╨┴╥!ê┴╙!ê╘╓R╘╓R╫╪┘\"ç" [kill-all-local-variables make-local-variable mail-reply-buffer nil mail-send-actions mail-signature-inserted set-syntax-table mail-mode-syntax-table use-local-map mail-mode-map text-mode-abbrev-table local-abbrev-table mail-mode major-mode "Mail" mode-name t buffer-offer-save paragraph-separate paragraph-start "^" mail-header-separator "$\\|^[ ]*[-_][-_][-_]+$\\|" run-hooks text-mode-hook mail-mode-hook] 4 "\
Major mode for editing mail to be sent.
Like Text Mode but with these additional commands:
C-c C-s mail-send (send the message) C-c C-c mail-send-and-exit
C-c C-f move to a header field (and create it if there isn't):
C-c C-f C-t move to To: C-c C-f C-s move to Subj:
C-c C-f C-b move to BCC: C-c C-f C-c move to CC:
C-c C-t move to message text.
C-c C-y mail-yank-original (insert current message, in Rmail).
C-c C-w mail-signature (insert signature file).
C-c C-q mail-fill-yanked-message (fill what was yanked).
C-c C-v mail-sent-via (add a sent-via field for each To or CC)
Button3 Popup menu with the above commands." nil])
(byte-code "¼╓┴ ┬\"ê─┼╞#ê─╟╚#ê─╔╩#ê─╦╠#ê─═╬#ê─╧╨#ê─╤╥#ê─╙╘#ê─╒╓#ê─╫╪#ê─┘┌#ê─█▄#ê─▌▐#ê┴ç" [mail-mode-map make-sparse-keymap set-keymap-parent text-mode-map define-key "?" describe-mode "" mail-to "" mail-bcc "" mail-cc "" mail-subject "" mail-text "" mail-yank-original "" mail-signature "" mail-fill-yanked-message "" mail-sent-via "" mail-send-and-exit "" mail-send button3 mail-mode-menu] 4)
(defvar mail-mode-menu '("Mail Mode" "Sending Mail:" "----" ["Send and Exit" mail-send-and-exit t] ["Send Mail" mail-send t] ["Sent Via" mail-sent-via t] "----" "Go to Field:" "----" ["To:" mail-to t] ["Subject:" mail-subject t] ["CC:" mail-cc t] ["BCC:" mail-bcc t] ["Text" mail-text t] "----" "Miscellaneous Commands:" "----" ["Yank Original" mail-yank-original t] ["Fill Yanked Message" mail-fill-yanked-message t] ["Insert Signature" mail-signature t] "----" ["Abort" kill-buffer t]) "\
Popup menu called by the function `mail-mode-menu'.")
(fset 'mail-mode-menu #[(event) "└┴\n!!ê├뽪╚@!½Ü@╔H╩=½å@¬î@╔H╦=½ä@Aë¼Z½ë╠??Iê½Ä╠;¡ä╧!Iê+╨─!ç" [select-window event-window event nil mail-mode-menu rest sig yank vectorp 1 mail-yank-original mail-signature 2 mail-reply-buffer mail-signature-file file-exists-p popup-menu] 5 "\
Pop up the mail mode menu, defined by the variable `mail-mode-menu'." "e"])
(fset 'mail-send-and-exit #[(arg) "└ ê┴p!ê\n¼ÿ├ ¼öè─┼╞ ╟\"!qê)╔=½â╩ ç╦╠p!!ç" [mail-send bury-buffer arg one-window-p window-buffer next-window selected-window not major-mode rmail-mode delete-window switch-to-buffer other-buffer] 4 "\
Send message like mail-send, then, if no errors, exit from mail buffer.
Prefix arg means don't delete this window." "P"])
(fset 'mail-send #[nil "└ ¼à┴┬!¡╥├─!ê¼ì╞!½ç½â╔ ê╩╦!ê ê½ì╬╧╨ÅêAë¼s└ ½û½Æ¼ë┴╙╘\"!½ì╒ ê¬ê╓╬!ê╫╪!ê├┘!ç" [buffer-modified-p y-or-n-p "Message already sent; resend? " message "Sending..." mail-signature-inserted file-exists-p mail-signature-file mail-insert-signature mail-signature run-hooks mail-send-hook send-mail-function mail-send-actions nil (byte-code "└ @@ @A\"ç" [apply mail-send-actions] 3) ((error)) buffer-file-name noninteractive format "Save file %s? " save-buffer set-buffer-modified-p delete-auto-save-file-if-necessary t "Sending...done"] 5 "\
Send the message in the current buffer. If the file denoted by the variable
`mail-signature-file' exists, and the variable `mail-insert-signature' is
non-nil, it is inserted at the end. If `mail-insert-signature' is nil, your
.signature file will not be inserted unless you do it explicitly with C-c C-w.
If `mail-interactive' is non-nil, wait for success indication or error
messages, and inform user. Otherwise any failure is reported in a message
back to the user from the mailer." nil])
(fset 'sendmail-send-it #[nil "½à┴┬!¬ü├┴─!┼ëp \n╦Äè qê╠ ê═!êdbêh╬U¼â╬cêebê╧╨╤!╙Q!ê╘╙!ê╒╓!ê╫ ebê╧╪┘#½î`W½å╘╙!ê¬l┘ebê╧┌┘#½ä█▄!êebê╧▌┘#½à▐!êebê╧▀┘#½ƒαß!êΓîe}êπΣ!)!σ ÿ¼è╓yêµσ ╙▒êebê╧τ┘#½ä╘Φ!êebê╧Θ┘#½ä╘Ω!ê½ëè\nqê╠ ê))δ∞φedε∩!½ä/¬ü≡┼\n┼±≥»≤σ D?¡ü⌠#\"ê¡úè\nqêebê╧⌡┼┘#½å╘÷!ê¬s≈ ├U?¡å█°ed{\").ç" [mail-interactive generate-new-buffer " sendmail errors" 0 " sendmail temp" nil mailbuf delimline case-fold-search tembuf errbuf ((byte-code "└ !ê┬!½ä└!ê└ç" [kill-buffer tembuf bufferp errbuf] 2)) erase-buffer insert-buffer-substring 10 re-search-forward "^" regexp-quote mail-header-separator "\n" replace-match backward-char 1 point-marker "\n\n\n*" t "^Sender:" error "Sender may not be specified." "^FCC:" mail-do-fcc "^From:" require mail-utils mail-strip-quoted-names mail-fetch-field "From" user-login-name "Sender: " "^S:" "Subject:" "^Subject:[ ]*\n" "" apply call-process-region append boundp sendmail-program "/usr/lib/sendmail" "-oi" "-t" "-f" ("-oem" "-odb") "\n\n* *" "; " buffer-size "Sending...failed to %s"] 11])
(fset 'mail-sent-via #[nil "èebê└┴\n┴Q!ê├yê─ ┼╞ ebê╩╦ ┼#¡á`╩╠ ┼#½å═╬!ê¬ä bê`{╧╨\"ê)¬X,ç" [search-forward "\n" mail-header-separator -1 point-marker t nil to-line case-fold-search end re-search-forward "^\\(to\\|cc\\):" "^[^ \n]" backward-char 1 insert-before-markers "Sent-via:"] 5 "\
Make a Sent-via header line from each To or CC header line." nil])
(fset 'mail-to #[nil "└ ê┴┬!ç" [expand-abbrev mail-position-on-field "To"] 2 "\
Move point to end of To-field." nil])
(fset 'mail-subject #[nil "└ ê┴┬!ç" [expand-abbrev mail-position-on-field "Subject"] 2 "\
Move point to end of Subject-field." nil])
(fset 'mail-cc #[nil "└ ê┴┬├\"«å┴─!ê┼cç" [expand-abbrev mail-position-on-field "cc" t "to" "\nCC: "] 3 "\
Move point to end of CC-field. Create a CC field if none." nil])
(fset 'mail-bcc #[nil "└ ê┴┬├\"«å┴─!ê┼cç" [expand-abbrev mail-position-on-field "bcc" t "to" "\nBCC: "] 3 "\
Move point to end of BCC-field. Create a BCC field if none." nil])
(fset 'mail-po